home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 292
- Top = 144
- Width = 415
- Height = 383
- Caption = 'NT Service API test'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- TextHeight = 13
- object Label2: TLabel
- Left = 16
- Top = 13
- Width = 51
- Height = 13
- Caption = 'Job Name:'
- end
- object Label3: TLabel
- Left = 176
- Top = 213
- Width = 19
- Height = 13
- Caption = 'File:'
- end
- object Label4: TLabel
- Left = 8
- Top = 277
- Width = 33
- Height = 13
- Caption = 'Param:'
- end
- object Label5: TLabel
- Left = 8
- Top = 298
- Width = 39
- Height = 13
- Caption = 'StrData:'
- end
- object Label6: TLabel
- Left = 8
- Top = 322
- Width = 38
- Height = 13
- Caption = 'IntData:'
- end
- object Label7: TLabel
- Left = 152
- Top = 322
- Width = 47
- Height = 13
- Caption = 'BoolData:'
- end
- object Button1: TButton
- Left = 24
- Top = 48
- Width = 145
- Height = 25
- Caption = 'Start Service'
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 24
- Top = 80
- Width = 145
- Height = 25
- Caption = 'Stop Service'
- TabOrder = 1
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 24
- Top = 112
- Width = 145
- Height = 25
- Caption = 'Pause TechScheduler'
- TabOrder = 2
- OnClick = Button3Click
- end
- object Button4: TButton
- Left = 24
- Top = 144
- Width = 145
- Height = 25
- Caption = 'Restart TechScheduler'
- TabOrder = 3
- end
- object Button5: TButton
- Left = 24
- Top = 176
- Width = 145
- Height = 25
- Caption = 'Get Last Error'
- TabOrder = 4
- OnClick = Button5Click
- end
- object Edit2: TEdit
- Left = 128
- Top = 8
- Width = 177
- Height = 21
- TabOrder = 5
- end
- object Button6: TButton
- Left = 208
- Top = 48
- Width = 145
- Height = 25
- Caption = 'Run Job'
- TabOrder = 6
- OnClick = Button6Click
- end
- object Button7: TButton
- Left = 208
- Top = 80
- Width = 145
- Height = 25
- Caption = 'Pause Job'
- TabOrder = 7
- OnClick = Button7Click
- end
- object Button8: TButton
- Left = 208
- Top = 112
- Width = 145
- Height = 25
- Caption = 'Restart Job'
- TabOrder = 8
- OnClick = Button8Click
- end
- object Button9: TButton
- Left = 208
- Top = 144
- Width = 145
- Height = 25
- Caption = 'Delete Job'
- TabOrder = 9
- OnClick = Button9Click
- end
- object Button10: TButton
- Left = 24
- Top = 208
- Width = 145
- Height = 25
- Caption = 'Read Job File'
- TabOrder = 10
- OnClick = Button10Click
- end
- object Button11: TButton
- Left = 24
- Top = 240
- Width = 145
- Height = 25
- Caption = 'Set Job Parameter'
- TabOrder = 11
- OnClick = Button11Click
- end
- object Edit3: TEdit
- Left = 224
- Top = 208
- Width = 129
- Height = 21
- TabOrder = 12
- end
- object Edit4: TEdit
- Left = 56
- Top = 272
- Width = 145
- Height = 21
- TabOrder = 13
- end
- object Edit5: TEdit
- Left = 56
- Top = 296
- Width = 145
- Height = 21
- TabOrder = 14
- end
- object SpinEdit1: TSpinEdit
- Left = 56
- Top = 320
- Width = 81
- Height = 22
- MaxValue = 0
- MinValue = 0
- TabOrder = 15
- Value = 0
- end
- object RadioGroup1: TRadioGroup
- Left = 216
- Top = 308
- Width = 153
- Height = 33
- Columns = 2
- Items.Strings = (
- 'True'
- 'False')
- TabOrder = 16
- end
- object Button12: TButton
- Left = 208
- Top = 240
- Width = 145
- Height = 25
- Caption = 'Set Config Parameter'
- TabOrder = 17
- OnClick = Button12Click
- end
- object Button13: TButton
- Left = 208
- Top = 176
- Width = 145
- Height = 25
- Caption = 'Write Log (strdata,jobname)'
- TabOrder = 18
- OnClick = Button13Click
- end
- object OpenDialog1: TOpenDialog
- Left = 368
- Top = 240
- end
- end
-